home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 41.zip / BS1 part 41 / Devpac 2.12 disk 1.adf / include / exec / ables.i next >
Text File  |  1988-10-06  |  882b  |  63 lines
  1.     IFND    EXEC_ABLES_I
  2. EXEC_ABLES_I    SET    1
  3.     IFND    EXEC_TYPES_I
  4.     INCLUDE    "exec/types.i"
  5.     ENDC
  6.     IFND    EXEC_EXECBASE_I
  7.     INCLUDE    "exec/execbase.i"
  8.     ENDC
  9. INT_ABLES    MACRO
  10.     XREF    _intena
  11.     ENDM
  12. DISABLE    MACRO
  13.     IFC    '\1',''
  14.     MOVE.W    #$04000,_intena
  15.     ADDQ.B    #1,IDNestCnt(A6)
  16.     ENDC
  17.     IFNC    '\1',''
  18.     MOVE.L    4,\1
  19.     MOVE.W    #$04000,_intena
  20.     ADDQ.B    #1,IDNestCnt(\1)
  21.     ENDC
  22.     ENDM
  23. ENABLE    MACRO
  24.     IFC    '\1',''
  25.     SUBQ.B    #1,IDNestCnt(A6)
  26.     BGE.S    ENABLE\@
  27.     MOVE.W    #$0C000,_intena
  28. ENABLE\@:
  29.     ENDC
  30.     IFNC    '\1',''
  31.     MOVE.L    4,\1
  32.     SUBQ.B    #1,IDNestCnt(\1)
  33.     BGE.S    ENABLE\@
  34.     MOVE.W    #$0C000,_intena
  35. ENABLE\@:
  36.     ENDC
  37.     ENDM
  38. TASK_ABLES    MACRO
  39.     XREF    _LVOPermit
  40.     ENDM
  41. FORBID    MACRO
  42.     IFC    '\1',''
  43.     ADDQ.B    #1,TDNestCnt(A6)
  44.     ENDC
  45.     IFNC    '\1',''
  46.     MOVE.L    4,\1
  47.     ADDQ.B    #1,TDNestCnt(\1)
  48.     ENDC
  49.     ENDM
  50. PERMIT    MACRO
  51.     IFC    '\1',''
  52.     JSR    _LVOPermit(A6)
  53.     ENDC
  54.     IFNC    '\1',''
  55.     MOVE.L    A6,-(SP)
  56.     MOVE.L    4,A6
  57.     JSR    _LVOPermit(A6)
  58.     MOVE.L    (SP)+,A6
  59.     ENDC
  60.     ENDM
  61.     ENDC
  62.  
  63.